home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / oberonv4 / configuration / configuration.mod (.txt) next >
Oberon Text  |  1996-05-12  |  3KB  |  88 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. StampElems
  4. Alloc
  5. 12 May 96
  6. Syntax10b.Scn.Fnt
  7. FoldElems
  8. Syntax10.Scn.Fnt
  9. Syntax10i.Scn.Fnt
  10.     (*<RD*)
  11.         VAR res: INTEGER;
  12.     BEGIN
  13.         Cmd.Call("XE.Open", "Welcome.Text", res);
  14.     END Help;
  15. Syntax10.Scn.Fnt
  16. Syntax10i.Scn.Fnt
  17.     (*<RD*)
  18.         VAR res: INTEGER;
  19.     BEGIN
  20.         Cmd.Call("Clipboard.Show", "", res);
  21.     END F6;
  22. Syntax10.Scn.Fnt
  23. Syntax10i.Scn.Fnt
  24.     (*<RD*)
  25.         VAR res: INTEGER;
  26.     BEGIN
  27.         Cmd.Call("Clipboard.SnapShot", "", res);
  28.     END F7;
  29. Syntax10.Scn.Fnt
  30. Syntax10i.Scn.Fnt
  31.     (*<RD*)
  32.         VAR res: INTEGER;
  33.     BEGIN
  34.         Cmd.Call("Doc.Open", "Prog.Guide.Text", res);
  35.     END F8;
  36. Syntax10.Scn.Fnt
  37. Syntax10i.Scn.Fnt
  38.     (*<RD*)
  39.         VAR res: INTEGER;
  40.     BEGIN
  41.         Cmd.Call("ObTris.Open", "", res);
  42.     END F9;
  43. Syntax10.Scn.Fnt
  44. Syntax10i.Scn.Fnt
  45.     (*<RD*)
  46.         VAR res: INTEGER;
  47.     BEGIN
  48.         Cmd.Call("Mines.Open", "", res);
  49.     END F10;
  50. MODULE Configuration;    (** SHML/CN/RD, 
  51.     IMPORT Display, Input, Viewers, Cmd, Kernel, System;
  52.     PROCEDURE Break(): BOOLEAN;
  53.         VAR keys: SET; x, y: INTEGER;
  54.     BEGIN
  55.         Input.Mouse(keys, x, y);
  56.         RETURN keys # {}
  57.     END Break;
  58.     PROCEDURE Help;
  59.     PROCEDURE F6;
  60.     PROCEDURE F7;
  61.     PROCEDURE F8;
  62.     PROCEDURE F9;
  63.     PROCEDURE F10;
  64.     PROCEDURE Init*;    (* Do initialization script *)
  65.         VAR res: INTEGER;
  66.     BEGIN
  67.         Cmd.Call("System.AmigaLoop", "20", res);
  68.         Cmd.Call("StatusViewer.Open", "", res);
  69.         Cmd.Mark(Cmd.STrack,Cmd.Top-Viewers.minH);
  70.         Cmd.Call("TextLoc.Install", "", res);
  71.         Cmd.Call("Log.Open", "", res);
  72.         IF Break() THEN RETURN END;
  73.         Cmd.Call("XE.SysOpen", "System.Tool", res);
  74.         Cmd.Call("XE.SysOpen", "My.Tool", res);
  75.         Cmd.Call("XEInstaller.Start", "", res);
  76.         System.UseQuitRequester;    (* delete this line if you do not want to see the Requester bevor quiting O4A *)
  77.         (* Set Procedures for F Keys 6-10 and HELP *)    (*<RD*)
  78.         Kernel.FKey[6]:=F6;
  79.         Kernel.FKey[7]:=F7;
  80.         Kernel.FKey[8]:=F8;
  81.         Kernel.FKey[9]:=F9;
  82.         Kernel.FKey[10]:=F10;
  83.         Kernel.FKey[11]:=Help;
  84.     END Init;
  85. BEGIN Init
  86. END Configuration.
  87. Cmd.Pick *
  88.